﻿Public Class frmNuevosAlumnosView
    Public Presenter As New NuevosAlumnosPresenter
    Private Sub frmNuevosAlumnosView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler ModuleController.Instance.OnChangeAlumnos, AddressOf ChangeAlumnosHandler
        Me.DataGridView1.DataSource = Me.Presenter.GetNuevosAlumnos


    End Sub
    Public Sub ChangeAlumnosHandler(ByVal sender As Object, ByVal e As EventArgs)
        Me.DataGridView1.DataSource = Me.Presenter.GetNuevosAlumnos
        Me.TextBox1.Text = DateTime.Now.ToLongTimeString
    End Sub
End Class